rm(list = ls(all = TRUE)) #clear workspace
setwd("~/Dropbox/REDISTRICTING/DISTRITACION 12-13")

#Computos distritales 2012
source("01_Computos_Distritales.R")
#Verificar que corresponde con los resultados oficiales
lapply(data[,partidos], sum)

#Redistritacion 2013
source("02_Genera_lista.R")

#Asignar distrito 2013
data$Distrito.2013 <- NA
for (edo in 1:32) {
  for (dto in 1:length(lista[[edo]])) {
    data$Distrito.2013[data$ID_ESTADO==edo & (data$SECCION %in% lista[[edo]][[dto]])] <- dto
  }
}
summary(data$Distrito.2013) #68 secciones sin asignar (reseccionalizacion)

# Agregar votos por distritos
data.2012 <- aggregate(data[,c("LISTA_NOMINAL",partidos)], 
                       by=data[c("ID_ESTADO", "D_DISTRITO")], 
                       sum, na.rm=TRUE)
data.2013 <- aggregate(data[,c("LISTA_NOMINAL",partidos)], 
                       by=data[c("ID_ESTADO", "Distrito.2013")], 
                       sum, na.rm=TRUE)

# Ganador
ganador.2012 <- apply(data.2012[,partidos], 1, function(x) names(which.max(x)))
ganador.2013 <- apply(data.2013[,partidos], 1, function(x) names(which.max(x)))
table(ganador.2012)
table(ganador.2013)


